﻿Imports DataDynamics.ActiveReports 
Imports DataDynamics.ActiveReports.Document
Imports System.Drawing

Public Class R040201 

    Private Sub R040201_ReportStart(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.ReportStart
        Try
            Me.lblMark.ForeColor = Color.FromArgb(100, 192, 192, 192)
            Me.lblMarkReplace.ForeColor = Color.FromArgb(100, 192, 192, 192)

            Dim dt As DataTable = CType(Me.DataSource, DataTable)
            Dim strToday As String = Now.Year.ToString.PadLeft(4, CChar("0")) & "年" & _
             Now.Month.ToString.PadLeft(2, CChar("0")) & "月" & Now.Day.ToString.PadLeft(2, CChar("0")) & "日"
            TextBox1.Text = strToday

            If dt.Rows(0)("TEHAI_SHUBETU") = "01" Then
                lblMarkReplace.Visible = False
                Labelreplace.Visible = False
                replace2.Visible = False
                TextBox2.Visible = False
                Line15.Visible = False

            Else
                lblMark.Visible = False
                Label1.Visible = False
                Label5.Visible = False
                TextBox10.Visible = False

            End If



        Catch ex As Exception

        End Try

    End Sub


End Class
